home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Monster Media 1996 #15
/
Monster Media Number 15 (Monster Media)(July 1996).ISO
/
bbs_util
/
cidtool2.zip
/
CIDTOOL1.SCR
< prev
next >
Wrap
Text File
|
1996-06-01
|
4KB
|
141 lines
CLS
PUTNL " `0BC`03aller`0F-`03ID `0BT`03ool`0BB`03ox `0B2`0F.`0B01"
PUTNL " `08By : Leon Kiriliuk (c)1996"
NL
PUTNL " `0AUser Name `0F: `02~UH"
PUTNL " `0AUser ID Number `0F: `02~UU"
NL
PUTNL " `0AData Phone Number `0F: `02~UE"
PUTNL " `0AVoice Phone Number `0F: `02~UD"
NL
PUTNL " `0DOpening Caller-ID Log `0F[`0A√`0F]"
PUTNL " `0DComparing numbers `0F[`0A√`0F]"
NL
FILEEXIST C:\CIDTOOL\CIDOUT.1 GOTO NUMFOUND
FILEEXIST C:\CIDTOOL\CIDOUT.2 GOTO VOICEFOUND
FILEEXIST C:\CIDTOOL\CIDOUT.3 GOTO OUTOFAREA
FILEEXIST C:\CIDTOOL\CIDOUT.4 GOTO NUMNOTF
FILEEXIST C:\CIDTOOL\CIDOUT.5 GOTO OTHERU
FILEEXIST C:\CIDTOOL\CIDOUT.6 GOTO SKIPUSER
FILEEXIST C:\CIDTOOL\CIDOUT.255 GOTO ERRORFOUND
GOTO ERRORFOUND
:NUMFOUND
PUTNL " `0DNumbers `03Match `0F[`0A√`0F] `03Don't Match `0F[ `0F]"
NL
NL
PUTNL "~SP"
VALIDATE B
COMMENT [──══ NORMAL USER ══──]
CLS
PUTNL " `07You have just been validated on the BBS with our new Caller-ID"
PUTNL " `07facilities. Congratulations."
NL
PUTNL " `07While staying on the BBS, please remember to follow proper conduct"
PUTNL " `07and as always, if you have any problems, leave the sysop a note."
NL
PUTNL "~SP"
GOTO END
:VOICEFOUND
PUTNL " `0DNumbers `03Match `0F[ `0F] `03Don't Match `0F[`8C√`0F]"
NL
PUTNL " `0DVoice Number `03Match `0F[`0A√`0F]"
NL
PUTNL "~SP"
COMMENT [──══ UNVALIDATED USER ══──]
CLS
NL
NL
PUTNL "`07 Your Data phone number does not match, yet your voice number"
PUTNL "`07Does. If you plan on using it, leave a message to the"
PUTNL "`07SysOp telling him so. This way you will be validated!"
NL
PUTNL "`8F FAILURE TO DO SO WILL RESULT IN YOUR REMOVAL!"
NL
PUTNL "~SP"
GOTO END
:OUTOFAREA
CLS
PUTNL ""
PUTNL ""
PUTNL "`07Due to security reasons, this system does not accept calls from;"
PUTNL "`07I) UNKNOWN NAME/NUMBER, II) PRIVATE NUMBER, and III) BLOCKED NUMBER."
PUTNL ""
PUTNL "`07Disable your call-blocking feature, and call direct."
PUTNL ""
PUTNL "~SW"
COMMENT [──══ UNVALIDATED USER ══──]
HANGUP
GOTO END
:NUMNOTF
PUTNL " `0DNumbers `03Match `0F[ `0F] `03Don't Match `0F[`8C√`0F]"
NL
NL
PUTNL "~SP"
COMMENT [──══ UNVALIDATED USER ══──]
CLS
NL
PUTNL "`07CID checks reveal that the data/voice# for this account does not match
PUTNL "`07that of the one recorded by caller-id."
NL
PUTNL "`07Due to security reasons, this system does not permit users calling from"
PUTNL "`07numbers other than the ones we have on record. This system is designed to"
PUTNL "`07allow access to the owner of the account, and no one else."
NL
PUTNL "`07Please call back in 24 hours, at which point your account will be"
PUTNL "`07deleted and you will be able to login as new AGAIN. At that point"
PUTNL "`07DO give use your REAL number!"
NL
PUTNL "~SP"
VALIDATE D
COMMENT [──══ DELETED USER ══──]
HANGUP
GOTO END
:OTHERU
PUTNL "`0D CID Detected another user with the same phone number!"
NL
PUTNL "~SP"
COMMENT [──══ DUPLICATE USER ══──]
CLS
NL
NL
PUTNL "`07 Another user on this system is already using this phone number."
PUTNL "`07 We no longer allow duplicate accounts. (Except in special cases)"
NL
PUTNL "`07You may leave the sysop a message now, at which point afterwards, the"
PUTNL "`07system will hang up on you.
NL
PUTNL "`07NOTE: In the message, you might want to tell the sysop why this occured"
PUTNL "`07 any changes you want the sysop to do, or a reason why the system"
PUTNL "`07 should by-pass the CID routine over your account on your next call."
NL
PUTNL "~SP"
MENU ME Sysop;CID-Failure : Dupe users.
HANGUP
GOTO END
:SKIPUSER
PUTNL "`0D CID Detected that your number should be skipped over!"
NL
PUTNL "`0D Have a nice day."
NL
PUTNL "~SP"
VALIDATE B
COMMENT [──══ NORMAL USER ══──]
GOTO END
:ERRORFOUND
PUTNL "`8F ERROR occured while executing. Please inform the SysOp!"
NL
NL
PUTNL "~SP"
COMMENT [──══ ERROR OCCURED ══──]
GOTO END
:END
ENDSCRIPT